
;; labels
;; As these are labels, it doesn't matter when I instantiate them.
(setf *label_lbs* (make-instance 'label :master *frame_listmain*
                                      :text "Lbs"))
(grid *label_lbs* 0 0)

(setf *label_oz* (make-instance 'label :master *frame_listmain*
                                      :text "oz"))
(grid *label_oz* 0 1)

(setf *label_gms* (make-instance 'label :master *frame_listmain*
                                      :text "grams"))
(grid *label_gms* 0 2)

(setf *label_mater* (make-instance 'label :master *frame_listmain*
                                      :text "Materials"))
(grid *label_mater* 0 3)

(setf *label_int* (make-instance 'label :master *frame_listmain*
                                      :text "Int"))
(grid *label_int* 0 4)

;; first column - lbs.
;; Any fields that can be entered, must be put on the grid in order of
;; how tab will be expected to work.

;;use emacs M-% to edit these...
(defvar *ENTRY_LBS1* 0)
(setf *ENTRY_LBS1* (make-instance 'entry
  			      :master *frame_listmain*
			      :width 5))
;;
(defvar *ENTRY_LBS2* 0)
(setf *ENTRY_LBS2* (make-instance 'entry
  			      :master *frame_listmain*
			      :width 5))
;;
(defvar *ENTRY_LBS3* 0)
(setf *ENTRY_LBS3* (make-instance 'entry
  			      :master *frame_listmain*
			      :width 5))
;;
(defvar *ENTRY_LBS4* 0)
(setf *ENTRY_LBS4* (make-instance 'entry
  			      :master *frame_listmain*
			      :width 5))
;;
(defvar *ENTRY_LBS5* 0)
(setf *ENTRY_LBS5* (make-instance 'entry
  			      :master *frame_listmain*
			      :width 5))
;;
(defvar *ENTRY_LBS6* 0)
(setf *ENTRY_LBS6* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
;;




;;;; enter 2nd column oz
(defvar *ENTRY_OZ1* 0)
(setf *ENTRY_OZ1* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
;;
(defvar *ENTRY_OZ2* 0)
(setf *ENTRY_OZ2* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
;;
(defvar *ENTRY_OZ3* 0)
(setf *ENTRY_OZ3* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
;;
(defvar *ENTRY_OZ4* 0)
(setf *ENTRY_OZ4* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
;;
(defvar *ENTRY_OZ5* 0)
(setf *ENTRY_OZ5* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
;;
(defvar *ENTRY_OZ6* 0)
(setf *ENTRY_OZ6* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
;;

;;;; enter 3rd column grams
(defvar *ENTRY_GMS1* 0)
(setf *ENTRY_GMS1* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
;;
(defvar *ENTRY_GMS2* 0)
(setf *ENTRY_GMS2* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
;;
(defvar *ENTRY_GMS3* 0)
(setf *ENTRY_GMS3* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
;;
(defvar *ENTRY_GMS4* 0)
(setf *ENTRY_GMS4* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
;;
(defvar *ENTRY_GMS5* 0)
(setf *ENTRY_GMS5* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
;;
(defvar *ENTRY_GMS6* 0)
(setf *ENTRY_GMS6* (make-instance 'entry
  				:master *frame_listmain*
  				:width 5))
;;


;;;; enter 4th column - materials
(defvar *ENTRY_MAT1* 0)
(setf *ENTRY_MAT1* (make-instance 'entry
  				:master *frame_listmain*
  				:width 50))
;;
(defvar *ENTRY_MAT2* 0)
(setf *ENTRY_MAT2* (make-instance 'entry
  				:master *frame_listmain*
  				:width 50))
;;
(defvar *ENTRY_MAT3* 0)
(setf *ENTRY_MAT3* (make-instance 'entry
  				:master *frame_listmain*
  				:width 50))
;;
(defvar *ENTRY_MAT4* 0)
(setf *ENTRY_MAT4* (make-instance 'entry
  				:master *frame_listmain*
  				:width 50))
;;
(defvar *ENTRY_MAT5* 0)
(setf *ENTRY_MAT5* (make-instance 'entry
  				:master *frame_listmain*
  				:width 50))
;;
(defvar *ENTRY_MAT6* 0)
(setf *ENTRY_MAT6* (make-instance 'entry
  				:master *frame_listmain*
  				:width 50))
;;

;;;; enter 5th column internal
(defvar *ENTRY_INT1* 0)
(setf *ENTRY_INT1* (make-instance 'entry
  				:master *frame_listmain*
  				:width 10))
;;
(defvar *ENTRY_INT2* 0)
(setf *ENTRY_INT2* (make-instance 'entry
  				:master *frame_listmain*
  				:width 10))
;;
(defvar *ENTRY_INT3* 0)
(setf *ENTRY_INT3* (make-instance 'entry
  				:master *frame_listmain*
  				:width 10))
;;
(defvar *ENTRY_INT4* 0)
(setf *ENTRY_INT4* (make-instance 'entry
  				:master *frame_listmain*
  				:width 10))
;;
(defvar *ENTRY_INT5* 0)
(setf *ENTRY_INT5* (make-instance 'entry
  				:master *frame_listmain*
  				:width 10))
;;
(defvar *ENTRY_INT6* 0)
(setf *ENTRY_INT6* (make-instance 'entry
  				:master *frame_listmain*
  				:width 10))
;;




;; In order of how <tab> will work.
(grid *ENTRY_LBS1*  1 0)
(grid *ENTRY_OZ1*   1 1)
(grid *ENTRY_GMS1*  1 2)
(grid *ENTRY_MAT1*  1 3)
(grid *ENTRY_INT1*  1 4)

(grid *ENTRY_LBS2*  2 0)
(grid *ENTRY_OZ2*   2 1)
(grid *ENTRY_GMS2*  2 2)
(grid *ENTRY_MAT2*  2 3)
(grid *ENTRY_INT2*  2 4)

(grid *ENTRY_LBS3*  3 0)
(grid *ENTRY_OZ3*   3 1)
(grid *ENTRY_GMS3*  3 2)
(grid *ENTRY_MAT3*  3 3)
(grid *ENTRY_INT3*  3 4)

(grid *ENTRY_LBS4*  4 0)
(grid *ENTRY_OZ4*   4 1)
(grid *ENTRY_GMS4*  4 2)
(grid *ENTRY_MAT4*  4 3)
(grid *ENTRY_INT4*  4 4)

(grid *ENTRY_LBS5*  5 0)
(grid *ENTRY_OZ5*   5 1)
(grid *ENTRY_GMS5*  5 2)
(grid *ENTRY_MAT5*  5 3)
(grid *ENTRY_INT5*  5 4)

(grid *ENTRY_LBS6*  6 0)
(grid *ENTRY_OZ6*   6 1)
(grid *ENTRY_GMS6*  6 2)
(grid *ENTRY_MAT6*  6 3)
(grid *ENTRY_INT6*  6 4)




